Evo ti lezernije resenje:
Code:
Procedure ARJ();
Var
Test : Integer;
begin
Test := ShellExecute(Application.Handle,'open',ExtractFilename(ArjEXEFiilename),'a '+ExtractShortPathName(destpath)+ExtractFilename(Archivefilename)+' '+ExtractShortPathName(destpath)+'*.*', ExtractShortPathName(ArjEXEFiilename),SW_Hide);
If Test <= 32 Then // Uraditi ako se desila greska
Begin
// Error Handler
End;
End;
Nadam se da je ovo bolje a i lezernije je stim da imas usput i kontrolu nad greskama.