Thema: Snake!

Einzelnen Beitrag anzeigen

Lefko

Registriert seit: 31. Jul 2003
359 Beiträge
 
Delphi 6 Enterprise
 
#6

Re: Snake!

  Alt 28. Feb 2004, 10:36
Hm, sehr merkwürdig...

hier ist mal der Code, der ausgeführt wird, wenn man darauf klickt:
Delphi-Quellcode:
if Zuende
  then
   begin
    //Highscore nach dem Spielen
    DeleteSnake(Kopf);
    ShellExecute(Application.handle, 'open', PChar(ExtractFileName(Paramstr(0))), PChar(ExtractFilePath(Paramstr(0))), nil , SW_ShowNormal);
    
    Application.terminate;
   end
  else
   begin
    //Highscore einfach nur angucken und zurück
    Form1.visible := true;
    Form2.close;
   end;
Johannes
-=[Nennst du meinen Namen, bin ich schon nicht mehr da]=-
  Mit Zitat antworten Zitat