paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +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
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);