paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some "-A" 's added.

Browse Source 
git-svn-id: trunk@24706 -
This commit is contained in:
marco 2013-06-01 12:30:00 +00:00
parent f58b3aa25a
commit 2a94da34cf
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-extra/src/win/daemonapp.inc
View File

@ -324,10 +324,10 @@ Const
Var Var
T : TDaemonStartThread; T : TDaemonStartThread;
Msg : TMsg; Msg : TMsg;
TClass: TWndClass; TClass: TWndClassA;
AWClass: TWndClass = ( AWClass: TWndClassA = (
style: 0; style: 0;
lpfnWndProc: @DefWindowProc; lpfnWndProc: @DefWindowProcA;
cbClsExtra: 0; cbClsExtra: 0;
cbWndExtra: 0; cbWndExtra: 0;
hInstance: 0; hInstance: 0;
@ -340,13 +340,13 @@ Var
begin begin
If (GUIHandle=0) then If (GUIHandle=0) then
begin begin
if not GetClassInfo(HInstance,AWClass.lpszClassName,TClass) then if not GetClassInfoA(HInstance,AWClass.lpszClassName,TClass) then
begin begin
AWClass.hInstance := HInstance; AWClass.hInstance := HInstance;
if Windows.RegisterClass(AWClass) = 0 then if Windows.RegisterClassA(AWClass) = 0 then
DaemonError(SErrWindowClass); DaemonError(SErrWindowClass);
end; end;
GUIHandle := CreateWindow(AWClass.lpszClassName, Pchar(Title), GUIHandle := CreateWindowA(AWClass.lpszClassName, Pchar(Title),
HandleOpts, 1,1, 0, 0, 0, 0, HInstance, nil); HandleOpts, 1,1, 0, 0, 0, 0, HInstance, nil);
end; end;
T:=TDaemonStartThread.Create(P,GUIHandle); T:=TDaemonStartThread.Create(P,GUIHandle);