Hi Leute
Ich hab ein Problem:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var sfi: TSHFILEINFO;
begin
if paramstr(1)='-sf' then
begin
SHGetFileInfo(PChar(paramstr(2)),0,sfi,sizeof(sfi),SHGFI_DISPLAYNAME);
file:=expandfilename(sfi.szDisplayName);
form1.Hide;
form2.show;
end;
end;
Nur zur Info: diese SHGetFileInfo Funktion macht aus kurzen Dateinamen (blabla~1.dat) lange (blablablabla.dat).
Also jetzt das Problem: Wie man sieht wird, wenn der Parameter -sf verwendet wird, anstatt Form1 Form2 angezeigt. Bessergesagt, es sollte so sein. Wenn ich jetzt das Programm starte kommt nur
Code:
Zugriffsverletzung bei Adresse 00456346 in Modul 'Project1.exe'. Lesen von Adresse 000002EC
und das Programm startet mit Form1.
Wieso geht das nicht? Die anderen Parameter die ich noch behandle gehen einwandfrei, wobei ich bei denen nur mit Form1 arbeite.
Danke schonmal für eure Hilfe
MfG synex