Thema: Delphi Problem mit Parameter

Einzelnen Beitrag anzeigen

synex

Registriert seit: 14. Apr 2003
147 Beiträge
 
Delphi 6 Personal
 
#1

Problem mit Parameter

  Alt 12. Okt 2003, 20:48
Hi Leute

Ich hab ein Problem:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var sfi: TSHFILEINFO;
begin
if paramstr(1)='-sfthen
        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
  Mit Zitat antworten Zitat