diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-06-01 12:30:00 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-06-01 12:30:00 +0000 |
| commit | 5b9553130084b886915b39e207a8c8a34a076c3a (patch) | |
| tree | d22922bc0607508b29828382d179fe5eb7ab2b6f | |
| parent | 3c5c70916ed1a7b596c0359ab35e4d41b085467d (diff) | |
| download | fpc-5b9553130084b886915b39e207a8c8a34a076c3a.tar.gz | |
* Some "-A" 's added.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@24706 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/fcl-extra/src/win/daemonapp.inc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/packages/fcl-extra/src/win/daemonapp.inc b/packages/fcl-extra/src/win/daemonapp.inc index ef2762a368..22bdf1960c 100644 --- a/packages/fcl-extra/src/win/daemonapp.inc +++ b/packages/fcl-extra/src/win/daemonapp.inc @@ -324,10 +324,10 @@ Const Var T : TDaemonStartThread; Msg : TMsg; - TClass: TWndClass; - AWClass: TWndClass = ( + TClass: TWndClassA; + AWClass: TWndClassA = ( style: 0; - lpfnWndProc: @DefWindowProc; + lpfnWndProc: @DefWindowProcA; cbClsExtra: 0; cbWndExtra: 0; hInstance: 0; @@ -340,13 +340,13 @@ Var begin If (GUIHandle=0) then begin - if not GetClassInfo(HInstance,AWClass.lpszClassName,TClass) then + if not GetClassInfoA(HInstance,AWClass.lpszClassName,TClass) then begin AWClass.hInstance := HInstance; - if Windows.RegisterClass(AWClass) = 0 then + if Windows.RegisterClassA(AWClass) = 0 then DaemonError(SErrWindowClass); end; - GUIHandle := CreateWindow(AWClass.lpszClassName, Pchar(Title), + GUIHandle := CreateWindowA(AWClass.lpszClassName, Pchar(Title), HandleOpts, 1,1, 0, 0, 0, 0, HInstance, nil); end; T:=TDaemonStartThread.Create(P,GUIHandle); |