amigos he probado muchas formas y no le veo la falla a mi codigo
al soltar un archivo sobre la aplicacion esta se debe ejecutar obtener ruta y ejecuta una aplicacion
la aplicacion llama a:
Código Delphi
[-]procedure TReg2infConverter.LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string; const Destino: string);
var
FileName,outfile : string;
begin
FileName := Extractfilename(Opendialog1.FileName);
FileName:= AnsiReplaceStr(FileName,' ','');
outfile :=ChangeFileExt(FileName, '.inf');
ShellExecute(Hnd,
'OPEN',
PChar(ExtractFileName(App)),
PChar(Origen+' '+Destino),
PChar(ExtractFilePath(App)),
SW_HIDE);
if FileExists(Opendialog1.FileName) then
label1.Caption:='Convertido con exito!! : '+outfile
else
label1.Caption:='Error! No se Encuentra Archivo'
end;
y aqui el dilema lo suelto encima se abre aplicacion y tira el mensaje Convertido con exito!! pero no hace nada, al abrir la aplicación y arrastrar un archivo encima funciona ok y es casi el mismo código.
Código Delphi
[-]procedure TReg2infConverter.FormCreate(Sender: TObject);
var
Origen, Destino ,Filename : string;
begin
DragAcceptFiles(handle, true);
OpenDialog1.FileName:= ParamStr(1);
edit1.Text:=ParamStr(1);
if ParamStr(1) > '' then
begin
Filename := Extractfilename(Opendialog1.FileName);
Origen := GetshortName(Opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');
if ExtractFileExt(ParamStr(1)) = '.reg' then
LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino )
else
MessageDlg('Archivo no valido!!', mterror, [mbok],0);
end;
end;
gracias por su tiempo!!