delphi createthread´íÎó
function ProBar : boolean;
begin
...
end;
--------------------------
var
ThreadId : DWORD;
var
ThreadHandle : THandle;
begin
ThreadHandle := CreateThread(nil, 0, @ProBar, nil, 0, ThreadID);
--------------------------
Delphi6ÏÔʾVariable required,¹â±êÍ£ÔÚµÚÈý¸ö²ÎÊýºó¡£
º¯ÊýProBarÔÚÆäËûµÄ·½·¨Öе÷Óö¼Ã»ÎÊÌâ¡£
лл£¡£¡£¡
µÚÈý¸ö²ÎÊý£¬Èç¹ûÓÃ@ProBar¸ÄΪ@Self¾Í¿ÉÒÔ±àÒëOK,µ«Êǵ÷ÓÃÕâ¸ö·½·¨ºó¾Í±¨´í£¬
ÎÒ¿´µ½ÍøÉϵͼÊÇ@Self.·½·¨Ãû£¬µ«ÊÇÎÒµÄÖ»ÄÜÊÇ@Self.¿Ø¼þ£¨»ò±äÁ¿£©
ÄÄλ¸ßÊÖÀ´Ö¸µãÒ»ÏÂ.....¼±...
function ProBar : boolean;
begin
...
end; ·ÅÔÚÇ°Ãæ¿´¿´
ÔÙ¶¥£¬ÎҵĵÚÈý¸ö²ÎÊýΪʲô²»ÄÜÊÇ@·½·¨Ãû£¿
Wozhiyonglangqi£¬Äã˵·ÅÔÚÇ°ÃæÊÇʲôÒâ˼£¿
²»ÄÜÔÚµÚÈý¸ö²ÎÊýÖÐÓÃ@self.·½·¨£¬ÇëÎÊΪʲô£¿
CreateThread µÄÓ÷¨Ã»ÓÐÎÊÌâ
°Ñ·½·¨Ð´³ÉÕâÑùÊÔһϠfunction ProBar : boolean; stdcall;
up
function TPPSampleSendCustFrm.ProBar: Boolean; stdcall;
ÎÒд³ÉÕâÑùºó£¬»¹ÊÇÏÔʾVariable required,¹â±êÍ£ÔÚµÚÈý¸ö²ÎÊýºó¡£
CreateThreadÕâ·½·¨¸÷λÓÐÔËÐгɹ¦¹ýÂð£¬Ð¡µÜÓÞÃÁ£¬¶à¶àÖ¸µã°¡...
function TForm1.ProBar : boolean
Ïà¹ØÎÊ´ð£º
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
Òª°üº¬winsock2 ¶øÇÒÏêϸЩµÄ¡£
ÄÇЩʹÓÿؼþµÄµÄÊé±¾¾Í²»ÒªÁË£¬
Ï£ÍûÂò¹ýÕâÀàÊéµÄÅóÓÑÄÜÍÆ¼öÏÂ×Ô¼º¾õµÃ²»´íµÄ¡£
À´¹Ø×¢Ï¡£
WindowsÍøÂçÓëͨÐųÌÐòÉè¼Æ(µÚ2°æ)
À¶Æ¤µÄÊÇаæ,ËäÈ»ÊÇÖйúÈËдµÄµ«ÊǷdz ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......