ｿｽ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

komin 2007/02/07(ｿｽｿｽ) 17:37:00

ｿｽ@TrayIconｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽﾄ常駐ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽeｿｽﾍタｿｽCｿｽ}ｿｽ[ｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ茨ｿｽ闔橸ｿｽﾔゑｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽBｿｽNｿｽｿｽｿｽｿｽｿｽｿｽﾆタｿｽXｿｽNｿｽgｿｽｿｽｿｽCｿｽﾉ常駐ｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌまゑｿｽWindowsｿｽｿｽVｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾆシｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ撰ｿｽｿｽｿｽﾉシｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽBｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅシｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽmｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

Fusa 2007/02/08(ｿｽｿｽ) 23:57:53

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾊにシｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽH

ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽVｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾉゑｿｽ
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAFormｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾈ？


ｿｽ@TMainForm = class(TForm)
ｿｽ@private
ｿｽ@ｿｽ@FQueryEndSession: Boolean;
ｿｽ@ｿｽ@FEndSessionLogOff: LongInt;
ｿｽ@ｿｽ@procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
ｿｽ@public
ｿｽ@ｿｽ@{ Public ｿｽ骭ｾ }
ｿｽ@end;

procedure TMainForm.WMQueryEndSession(var Msg:TWMQueryEndSession);
begin
ｿｽ@FQueryEndSession := true;
ｿｽ@FEndSessionLogOff := Msg.Unused;
ｿｽ@inherited;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

ｿｽ@if FQueryEndSession then begin
ｿｽ@ｿｽ@FQueryEndSession := false;
ｿｽ@ｿｽ@if (FEndSessionLogOff and ENDSESSION_LOGOFF) <> 0 then
ｿｽ@ｿｽ@begin
ｿｽ@ｿｽ@ｿｽ@// ｿｽｿｽｿｽOｿｽIｿｽtｿｽvｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@WriteFileRunningTimeData('ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ'+TAB+'ｿｽｿｽｿｽOｿｽIｿｽt');
ｿｽ@ｿｽ@end
ｿｽ@ｿｽ@else begin
ｿｽ@ｿｽ@ｿｽ@// ｿｽVｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@WriteFileRunningTimeData('ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ'+TAB+'ｿｽVｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽ');
ｿｽ@ｿｽ@end;
ｿｽ@end
ｿｽ@else begin
ｿｽ@ｿｽ@// ｿｽｿｽLｿｽﾈ外ｿｽﾅフｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@WriteFileRunningTimeData('ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ'+TAB+'ｿｽﾊ擾ｿｽ');
ｿｽ@end;

ｿｽ@if CanClose then
ｿｽ@begin
ｿｽ@end;
end;

komin 2007/02/10(ｿｽy) 20:03:10

ｿｽ@FusaｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽVｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽ窿搾ｿｽOｿｽIｿｽtｿｽｿｽｿｽｿｽmｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍ托ｿｽﾏ勉具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽﾅ、ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾉ戻ゑｿｽﾜゑｿｽｿｽｿｽｿｽACloseQueryｿｽｿｽCanClose := falseｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾆわかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽWindowsｿｽﾌシｿｽｿｽｿｽbｿｽgｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽ驪ｭｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ具ｿｽｿｽﾉ記ｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ