Erstes NonVCL-Programm: HILFE :-)

[Opa Knack]

Hallo,

ich versuche gerade, mein erstes Programm NonVCL fertigzustellen, aber irgendwie komme ich dabei nicht weiter.

Vom Programm aus soll ein externes Programm gestartet und mit Hinweisfenstern beim Programmstart und -ende ergänzt werden. Dies habe ich wie folgt umgesetzt:

Delphi-Quellcode:

procedure ShellExecAndWait(dateiname: string; Parameter: string);
var executeInfo: TShellExecuteInfo;
dw: DWORD;
begin
FillChar(executeInfo, SizeOf(executeInfo), 0);
with executeInfo do
begin
        cbSize := SizeOf(executeInfo);
        fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
        Wnd := GetActiveWindow();
        executeInfo.lpVerb := 'open';
        executeInfo.lpParameters := PChar(Parameter);
        lpFile := PChar(dateiname);
        nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@executeInfo) then
        dw := executeInfo.HProcess
else
begin
        ShowMessage('Error: ' + SysErrorMessage(GetLastError));
        Exit;
end;
while WaitForSingleObject(executeInfo.hProcess, 50) <> WAIT_OBJECT_0 do
        Application.ProcessMessages;
CloseHandle(dw);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Showmessage('Please keep in mind to update the database after editing');
  ShellExecAndWait('M:\sales\mfgpro\reporter.exe', '');
  Showmessage('You should restart the report now');
  Close;
end;

Das klappt soweit, aber leider ist da auch schon das Problem: Ich habe das Ganze über FormCreate-Event gestartet. Zwar kann ich über Application.ShowMainForm := false; in der Projektdatei die Anzeige des Formulars verhindern, aber wirklich sinnvoll scheint mir dies nicht (immerhin soll das ja NonVCL werden).

Was kann ich tun, um das kurze Programm oben auch ohne Formular zu starten? Ich bin für jeden Tipp dankbar.

Danke
Opa

[jfheins]

Im Hauptprogrammquelltext (Projekt > Quelltext) deinen Quelltext reinschreiben, und das Application-Zeug wegmachen ...

[Die Muhkuh]

Hi,

irgendwas geht mir hier gegen den Strich. Ich kann zwar kein nonVCL, aber das TForm1 hört sich verdächtig nach VCL an?

[Opa Knack]

Hallo,

wenn ich die Application-Einträge entferne, sagt mir Delphi aber schon beim Prozeduraufruf, dass dies eine Anweisung sein sollte, und bricht ab. Und wie starte ich die Prozedur, wenn ich den FormCreate-Event nicht nutzen kann?

Danke
Opa

[Die Muhkuh]

Hi,

schau dir am besten mal Luckies nonVCL-Tut an.

http://www.luckie-online.de/Tutorials/

nennt sich "Win32-Api Tutorials".

[jfheins]

Also deine prozedurderkl. kommt vor das begin

und das was nach dem begin kommt wird sofort ausgeführt, wenn das programm startet.
du hast dann keine events in dem Sinne mehr, sondern meistens nur noch eine nachrichtenschleife, und dann reagierst du auf die nachrichten.

[Opa Knack]

Hallo,

Danke, das war genau das Richtige...

Gruß
Opa