|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ_ｿｽCｿｽAｿｽｿｽｿｽNｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜま擾ｿｽｿｽｿｽｿｽ続ゑｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽ竅 2004/06/23(ｿｽｿｽ) 10:44:46
begin
ｿｽE
ｿｽE
ｿｽE
MessageDlg('ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ',mtConfirmation,[mbCancel],0ｿｽj;
ｿｽE
ｿｽE
ｿｽE
end;
ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽﾋゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽ中止ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌようｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾌ途ｿｽｿｽｿｽﾅｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽ_ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽ‾ｿｽﾜゑｿｽA
ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽﾈにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽﾋゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
jok 2004/06/23(ｿｽｿｽ) 12:15:57
ｿｽVｿｽKｿｽｿｽ Form1 ｿｽｿｽ Label1 ｿｽｿｽ Button1 ｿｽｿｽuｿｽｿｽｿｽﾄ以会ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
StartFlag:Boolean;
public
procedure WMApp(var Msg:TMessage);message WM_APP;
procedure CancelClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.WMApp(var Msg: TMessage);
var
i:integer;
begin
for i := 0 to Screen.ActiveForm.ControlCount-1 do
if Screen.ActiveForm.Controls[i] is TButton then
TButton(Screen.ActiveForm.Controls[i]).OnClick := CancelClick;
i := 0;
while StartFlag do begin
Label1.Caption := IntToStr(i);
Inc(i);
Application.ProcessMessages;
Sleep(1);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(Handle,WM_APP,0,0);
StartFlag := true;
MessageDlg('ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ',mtConfirmation,[mbCancel],0);
end;
procedure TForm1.CancelClick(Sender: TObject);
begin
StartFlag := false;
end;
ｿｽｿｽｿｽｿｽ 2004/06/23(ｿｽｿｽ) 14:14:48
ｿｽｿｽ{ｿｽIｿｽﾉデｿｽBｿｽXｿｽpｿｽbｿｽ`ｿｽﾍ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
DelphiｿｽﾉゑｿｽTThreadｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽgｿｽBｿｽB
ｿｽｿｽｿｽｿｽｿｽﾊ知ｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽしｿｽﾄ。
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽoｿｽ[ｿｽﾂゑｿｽｿｽｿｽｿｽｿｽHFlashWindowｿｽﾆゑｿｽｿｽﾅ費ｿｽｿｽ]ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽVｿｽﾔのゑｿｽgｿｽBｿｽB
jok 2004/06/23(ｿｽｿｽ) 15:26:42
> ｿｽｿｽ{ｿｽIｿｽﾉデｿｽBｿｽXｿｽpｿｽbｿｽ`ｿｽﾍ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽfｿｽBｿｽXｿｽpｿｽbｿｽ`ｿｽｿｽｿｽﾄなゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが誰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
> DelphiｿｽﾉゑｿｽTThreadｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽgｿｽBｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
> ｿｽｿｽｿｽｿｽｿｽﾊ知ｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽしｿｽﾄ。
> ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽoｿｽ[ｿｽﾂゑｿｽｿｽｿｽｿｽｿｽHFlashWindowｿｽﾆゑｿｽｿｽﾅ費ｿｽｿｽ]ｿｽｿｽｿｽｿｽｿｽｿｽ
GUI ｿｽｿｽｿｽｿｽｿｽﾍｿｽｿｽCｿｽｿｽｿｽｿｽｿｽbｿｽhｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍ Synchronizeｿｽ@ｿｽｿｽ
ｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽｿｽﾄ、ｿｽｿｽﾍりモｿｽ[ｿｽ_ｿｽｿｽｿｽｿｽｿｽ[ｿｽvｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆにはゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
jok 2004/06/23(ｿｽｿｽ) 15:28:52
ｿｽｿｽｿｽ[ｿｽ_ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽ[ｿｽvｿｽﾅゑｿｽｿｽ驛ゑｿｽ[ｿｽ_ｿｽｿｽｿｽｿｽｿｽ[ｿｽv
ｿｽﾅはほとゑｿｽﾇｿｽｿｽ[ｿｽUｿｽﾌ会ｿｽｿｽｿｽｿｽﾒゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽsｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾌゑｿｽｿｽｿｽ閧ｩｿｽﾈ、ｿｽﾆゑｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ。
ｿｽﾉゑｿｽｿｽｿｽ 2004/06/23(ｿｽｿｽ) 16:21:18
ｿｽfｿｽBｿｽXｿｽpｿｽbｿｽ`
http://e-words.jp/w/E38387E382A3E382B9E38391E38383E38381.html
ｿｽｿｽ{ｿｽIｿｽﾉ、ｿｽuWindowsｿｽﾍデｿｽBｿｽXｿｽpｿｽbｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽvｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.Dispatch(var Message);
begin
//ｿｽfｿｽBｿｽXｿｽpｿｽbｿｽ`ｿｽﾅなにゑｿｽｿｽｿｽﾈゑｿｽ
end;
ｿｽ埋めゑｿｽﾆ会ｿｽｿｽﾜゑｿｽｿｽB
