si lo que pasa que tenia un problema con el
destino me creaba el archivo en la carpeta de mi proyecto al arrastrar y soltar
hise esta ensalada jaja que por el momento ha sido la unica forma que me ha funcionado
Arrastrar/soltar y ejecutar aplicación
Código Delphi
[-]procedure TReg2infConverter.WMDropFiles(var Msg: TMessage);
var
nomArchivo: array [0..255] of char;
tamBuffer: Integer;
numArchivos: Integer;
f: Integer;
Origen, Destino ,Filename,path : string;
begin
hDrop := Msg.WParam;
numArchivos := DragQueryFile(hDrop, $FFFFFFFF, Nil, 0);
if (numArchivos > 0) then
begin
for f := 0 to numArchivos -1 do
begin
tamBuffer := DragQueryFile(hDrop, f, nil, 0)+1;
DragQueryFile(hDrop, f, nomArchivo, tamBuffer);
opendialog1.FileName:=(nomArchivo);
edit1.Text:=(nomArchivo);
if fileExists(opendialog1.FileName) then
begin
if ExtractFileExt(opendialog1.FileName) = '.reg' then
begin
path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');
LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );
end else
MessageDlg('Archivo no valido!!', mterror, [mbok],0);
end;
end;
end;
end;
Enviar archivo a Aplicación
Código Delphi
[-]procedure TReg2infConverter.FormCreate(Sender: TObject);
var Origen, Destino,FileName,Path: string;
begin
DragAcceptFiles(handle, true);
if ParamStr(1) > '' then
begin
OpenDialog1.FileName:= ParamStr(1);
Edit1.Text:= ParamStr(1);
if FileExists(OpenDialog1.FileName) then
Path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');
LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );
end;
end;
Gracias! por el momento todo OK!!