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»°²È«µÄ,