Error Application.Handle Umstieg von Dephi

[gekd1407]

Hallo Leute,

habe da ein Problem und komme nicht weiter...

Habe eine Unit, die unter Delphi problemlos lief.

Wollte Sie jetzt umwandeln. Nach dem Umwandeln mit dem Tool unter Werkzeuge
und kompilieren bekomme ich immer den Fehler:

onlyoneunit.pas(24,27) Error: identifier idents no member "Handle"

Code: Alles auswählen

 
 
unit OnlyOneUnit;
 
{$mode objfpc}{$H+}
 
interface
 
implementation
 
uses
  Classes, Forms, SysUtils, Windows;
 
var
  Mutex : THandle;
  H     : HWnd;
 
initialization
 
Mutex := CreateMutex(nil,true,'MyXYZMutex');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
   H := 0;
   repeat
      H := FindWindowEx(0,h,'TApplication',PChar(Application.Title))
   until H <> Application.Handle;
   if H <> 0 then
   begin
      Windows.ShowWindow(H, SW_ShowNormal);
      windows.SetForegroundWindow(H);
   end;
   halt;
end;
 
finalization
  ReleaseMutex(Mutex);
end. 
 

Hat jemand einen Tip für mich?
Danke.

Gruß
Karsten

[theo]

Willst du das? http://wiki.lazarus.freepascal.org/UniqueInstance/de

[gekd1407]

Hallo Theo,

jaaaa, es funzt.

Danke.

Karsten