Zitat von
Luckie:
Steht doch da: ShowMessage(...), istnur auskommentiert.
was isn das für ne antwort??? hast du meine frage überhaupt durchgelesen???
naja egal
also ich hab durch denn link von jürgen thomas einen beitrag von turboPASCAL gefunden...
der hat ne beispiel anwendung mal gepostet in der demonstriert wurde wie man ein programm das bereits läuft
und noch mals gestartet wird in den vordergrund holt... funktioniert einwandfrei, auch wenn das programm in
denn tray minmiert wurde (ok es bleibt im tray, aber es wird nicht 2 mal gestartet wie zuvor)
ich hab jetzt nur noch ein kleines problem mit dem text in der taskleiste... denn muss ich in der .dpr datei
festhinterlegen, würde dies aber gerne variable machen!
Delphi-Quellcode:
program DPStart;
uses
Forms,
Windows,
DPStart_main in 'DPStart_main.pas' {Main_Form};
{$R *.res}
var
FirstInstance : hWnd;
begin
FirstInstance := FindWindow('TApplication', 'hier muss ich denn text reinschreiben'); // <-- die stelle hätte ich gern variabel!!!
If FirstInstance <> 0 Then
Begin
If IsIconic(FirstInstance) Then ShowWindow(FirstInstance, SW_RESTORE)
Else
SetForeGroundWindow(FirstInstance);
FlashWindow(FirstInstance, True);
End Else
Begin
Application.Title := 'hier muss ich denn text reinschreiben';´// <-- und diese auch
Application.CreateForm(TMain_Form, Main_Form);
Application.Run;
End;
end.