5
54weige
Unregistered / Unconfirmed
GUEST, unregistred user!
program wa;
uses
Windows;
var
TimerHandle:Word;
msg:TMsg;
procedure MainFuck;
begin
我要让他循环执行MainFuck的内容
end;
procedure TimerProc(Wnd:HWnd;msg,TimerID,dwTime
WORD);stdcall;
begin
代码
运行MainFuck;
end;
procedure StartTimer(IntervalWORD);
begin
TimerHandle:=SetTimer(0,0,Interval,@TimerProc);
end;
begin
StartTimer(10000);
while(GetMessage(Msg,0,0,0))do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
uses
Windows;
var
TimerHandle:Word;
msg:TMsg;
procedure MainFuck;
begin
我要让他循环执行MainFuck的内容
end;
procedure TimerProc(Wnd:HWnd;msg,TimerID,dwTime
WORD);stdcall;begin
代码
运行MainFuck;
end;
procedure StartTimer(Interval
WORD);begin
TimerHandle:=SetTimer(0,0,Interval,@TimerProc);
end;
begin
StartTimer(10000);
while(GetMessage(Msg,0,0,0))do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.