Delphi ¶àÏß³ÌÖд´½¨´°Ìå - Delphi / Windows SDK/API
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure FileMd;
begin
Application.CreateForm(TForm2, Form2); //ÕâÀï´íÎó£¬
Form2.ShowModal; //ÕâÀï´íÎó£¬
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dloopThreadID:DWORD;
begin
CreateThread(nil,0,@FileMD,nil,0,dloopThreadID);
end;
end.
»á´´½¨¶à¸ö´°Ì壡¸ÃÈçºÎ´´½¨£¡
Xabi Alonso
ÏÈupÔÙ¿´¿´
VCLµÄ¿ò¼Ü½á¹¹ ¾Í²»ÔÊÐíÔÚÏß³ÌÖд´½¨´°Ì壬·ñÔòÕû¸öÏûϢѻ·¾ÍÂÒÁË£¡
VCLµÄ¿ò¼Ü½á¹¹ ¾Í²»ÔÊÐíÔÚÏß³ÌÖд´½¨´°Ì壬·ñÔòÕû¸öÏûϢѻ·¾ÍÂÒÁË£¡
ÐéÐÄѧϰһÏ¡£¡£¡£
¶àÏ̲߳»ÊìϤ¡£¡£¡£À´Ñ§Ï°µØ¡£¡£¡£
Ìý˵vclÔÚÏß³ÌÖÐÊDz»°²È«µÄ,
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......
Êý¾Ý£º Äê Ô ÈÕ ¿ªÅÌ ÊÕÅÌ
ʹÓÃÏÂÃæÓï¾äËÑË÷µ½ÁË Ã¿Äêÿ¸öÔµÄÔ³õºÍÔÂÄ©¶¼ÊǼ¸ºÅ
select Äê,ÔÂ,MIN(ÈÕ) as frist,MAX(ÈÕ) AS laset from mt4his.DB GROUP BY Äê,ÔÂ
ÎÒÏëµÃµ½ ÿÄêÿ¸öÔµÄÔ³õºÍÔÂÄ© ......
ÓÐûÓа취ʵÏÖ¸úQQÓÊÏäÒ»ÑùµÄЧ¹û£¬µã»÷×ó±ßµÄ²Ëµ¥£¬ÓÒ±ßˢУ¬¶à¸öÒ³Ãæ¼äÇл»£¬¶ø×ó±ßµÄ²Ëµ¥À¸²»±ä
ÓÐºÜ¶à¿Ø¼þ¿ÉÒÔʵÏÖ
µÈÄã·Ö¼Ó·Ö£¬ÎÒ¸øÄãд¸öÔ´Âë¡£Õâµã·ÖʵÔÚûÓж¯Á¦»Ø´ð¡£
ExpressBars
¿´¿´¡£
Ò ......