FindWindow og få det frem

procedure Button1Click(Sender: TObject);
var
  Wnd: HWND;
begin
  Wnd := FindWindow(\'Notepad\', nil);
end;

For at få dit vindue bragt frem skal du kalde ShowWindow(Wnd, SW_SHOW);

hvor Wnd er det handle du fik fra din FindWindow()

JEns B

nico22>> Det ser ud til at alle steder jeg kigger efter eksempler de skriver at vindue caption navnet skal stå først og det kan jeg ikke få til at passe/virke. Men sætter jeg caption navne som nr. 2 parameter virker det.

borrisholt>> ShowWindow kan jeg ikke få til at bringe programmet i forgrunden med. Derimod har jeg brugt SetForegroundWindow(Wnd); kaldet der nu virker.

Her er koden :

implementation
var CaptionName : string;
    RetryDelay : integer;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var Ini : TInifile;
    PrgmPath : string;
begin
  PrgmPath := ExtractFilePath(Application.Exename);
  Ini := TInifile.Create(PrgmPath + \'StayInFront.ini\');
    CaptionName := Ini.ReadString(\'setup\', \'Caption\', \'start\');
    RetryDelay := Ini.ReadInteger(\'setup\', \'Delay\', 1000);
  Ini.free;
  Timer1.Interval := RetryDelay;
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var hwnd : integer;
begin
  hwnd := FindWindow(nil, PChar(CaptionName));
  if hwnd > 0 then SetForegroundWindow(hwnd);
end;

Nå, jeg løste selv mit problem