Kontextmenü, Parameterübergabe, Dateiupload

[DeddyH]

Delphi-Quellcode:

begin

if (ParamCount>0) and (FileExists(ParamStr(1))) then
      begin
Form1.Show; //<-- Hier gibt es noch kein Form1...
end;

      Semaphore := CreateSemaphore(nil, 1, 1, PChar(MainUnit.MyGUID));
if (GetLastError = ERROR_ALREADY_EXISTS) then
      PostMessage (HWND_BROADCAST, MainUnit.ActivationMessage,0,0)
   else

  begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Test Programm';
  Application.CreateForm(TForm1, Form1); //<-- ...denn hier wird es erst erzeugt
  Application.CreateForm(TForm5, Form5);
  Application.Run;
  end;

CloseHandle(Semaphore);
end.