Ich möchte, dass meine Erstanwendung nach dem Aufruf der Zweitanwendung, sich automatisch schließt
den befehl zum Laden der zweitanwendung habe ich auf einen Button gelegt der wie folgt aussieht:
Zitat:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = Edit2.Text then
winexec(PCHar('WINVER.EXE'), SW_SHOWNORMAL)
else Label1.Caption := 'klappt nicht';
end;
habe folgendes versucht:
Zitat:
winexec(PChar('WINVER.EXE'), SW_SHWONORMAL) AND Form1.Close
else...
aber so wird der else Befehl gar nicht mehr akzeptiert.
Wäre super wenn jemand von Euch eine Lösung parat hätte gleich mit Quellcode.