muchas gracias amigo funcionando !!
al arrastrar un archivo a mi aplicacion he hecho que se inicie automaticamente el proceso y estoy tratando de implementar un dialogo final Completado!! y al presionar ok se cierre pero no me funciona muy bien en esta parte tengo el error
hasta ay todo bien
Código Delphi
[-]
if ExtractFileExt(nomArchivo) = '.reg' then
ShellExecute(Handle, 'open', 'HAND.CMD', PChar(GetShortName(Opendialog1.FileName)), nil, SW_NORMAL)
else if MessageDlg('Archivo invalido!', MtInformation, [mbOK],0) = mrok then
Application.Terminate;
end;
Aca el problema en esta linea no se la forma correcta de hacerla
if ShellExecute(Handle, 'open', 'HAND.CMD', PChar(GetShortName(Opendialog1.FileName)), nil, SW_NORMAL)
Código Delphi
[-]
if ExtractFileExt(nomArchivo) = '.reg' then
begin
if ShellExecute(Handle, 'open', 'HAND.CMD', PChar(GetShortName(Opendialog1.FileName)), nil, SW_NORMAL)
then begin
if MessageDlg('Completado!', MtInformation, [mbOK],0) = mrok then
Application.Terminate;
end else if MessageDlg('Archivo invalido!', MtInformation, [mbOK],0) = mrok then
Application.Terminate;
end;
end;
gracias!!