?? start.dpr
字號:
program Start;
uses
Windows,
Messages,
MyAPIDll2 in 'MyAPIDll2.pas',
Common in 'Common.pas';
type
TMapDllData = record
CurThreadID : DWORD;
ExeFile : String[255];
end;
PMapDllData = ^TMapDllData;
var
MsgStruct: TMsg;
MutexHandle, FileHandle: DWORD;
PDllData : PMapDllData;
ThisExeName : array [0..255] of char;
begin
if (OpenMutex(MUTEX_ALL_ACCESS, FALSE, ExeMutex) <> 0) or
(OpenMutex(MUTEX_ALL_ACCESS, FALSE, DllMutex) <> 0) then Exit;
MutexHandle := CreateMutex(nil, FALSE, ExeMutex);
FileHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TMapDllData), sFileMap);
PDllData := MapViewOfFile(FileHandle, FILE_MAP_WRITE, 0, 0, 0);
PDllData^.CurThreadID := GetCurrentThreadID();
GetModuleFileName(HInstance, @ThisExeName[0], 255);
PDllData^.ExeFile := String(ThisExeName);
UnmapViewOfFile(PDllData);
InstallHook;
while GetMessage(MsgStruct, 0, 0, 0) do ; // 等待WM_QUIT
UnHook;
CloseHandle(FileHandle);
PostMessage(HWND_BROADCAST, WM_WININICHANGE, 0, 0);
CloseHandle(MutexHandle);
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -