Zitat von
marabu:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
datei := '';
temp := TStringList.Create;
try
temp.LoadFromFile('temp.mmr');
datei := temp[0];
finally
temp.Free;
end;
end;
marabu
Bringt immer noch nichts. Ich sage ja, eigentlich kann es garnicht sein, dass es nicht geht... Wenn ich überlege, was ich schon alles ausprobiert habe...
Ich bin echt langsam am verzweifeln...
Hier nochmal der Quelltext, wo die datei temp.txt beschrieben wird.
Delphi-Quellcode:
procedure neufenster(artv, art: String; data: TStringList);
var datei: String;
begin
datei := ExtractFilePath(Application.Exename);
data := TStringList.Create;
data.Clear;
data.add(artv);
data.SaveToFile(datei+'temp.mmr');
ShellExecute(Application.Handle, 'open', PChar('"' + datei+'\data\system\'+art+'\Project1.exe' + '"'), nil, nil, SW_NORMAL);
end;
@r_kerber
Hmmm, aber dadurch bin ich diese 2 seltsamen Striche losgeworden.
Baer ich habe jetzt ja auch schon das von 'marabu' ausprobiert, aber das funktioniert ja auch net...