Erstanwendung nach Start der Zweitanwendung schließen

[leddl]

Also ein AND macht deinen Befehl ja nur zum Booleschen Ausruck (Wahr/Falsch).
Das macht ja nun gar keinen Sinn. Du mußt einfach die Befehle, die du im ersen Fall ausführen willst, in Begin..End setzen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if Edit1.Text = Edit2.Text then 
  Begin
    winexec(PCHar('WINVER.EXE'), SW_SHOWNORMAL) ;
    Form1.Close;
  End
  else Label1.Caption := 'klappt nicht'; 
end;