@The-X:
endlich, mit dem 8.3 Dateinamen funktioniert die Batchdatei.
bei der Shell funktion behauptet er, er braucht Dateien mit einer uz2 Endung:
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
Datei, Pfad, Parameter : String;
begin
Datei := ExtractFileName(PChar(Label4.Caption));
Pfad := ExtractShortPathName(ExtractFilePath(PChar(Label4.Caption)));
Parameter := PChar(' decompress ' + Label1.Caption + ' '+ ExtractFilePath(Label1.Caption));
PChar(Pfad), sw_Maximize);
ShellExecute(Application.Handle, 'open', 'E:\Spiele\UT 2004\System\ucc.exe', 'decompress D:\itt.uz2', 'E:\Spiele\UT 2004\System\', sw_Maximize);
end;
Könnt ihr mir sagen wieso?