Added static binary tools collection (originally in SVN archive)
This commit is contained in:
30
static/PEiD-0.95-20081103/pluginsdk/Delphi/Sample.dpr
Normal file
30
static/PEiD-0.95-20081103/pluginsdk/Delphi/Sample.dpr
Normal file
@ -0,0 +1,30 @@
|
||||
//sample provided by _pusher_
|
||||
library Sample;
|
||||
|
||||
uses
|
||||
Windows;
|
||||
|
||||
type DLL_RET_MSG = record
|
||||
szMsgText: PChar;
|
||||
szMsgHead: PChar;
|
||||
dRetVal: DWORD;
|
||||
dRetExVal: DWORD;
|
||||
dFlags: DWORD;
|
||||
end;
|
||||
|
||||
function LoadDll:PChar;cdecl;
|
||||
begin
|
||||
result:='Name for Plugin';
|
||||
end;
|
||||
|
||||
function DoMyJob(hMainDlg: HWND; szFname: PChar; lpReserved: DWORD; DRM: DLL_RET_MSG):DWORD; cdecl;
|
||||
begin
|
||||
Messagebox(hMainDlg,Pchar('hello world'+#13+#10+'FileName: '+szFname),'',MB_OK);
|
||||
result:=1; //this is like showing peid all went well.
|
||||
end;
|
||||
|
||||
exports
|
||||
DoMyJob,
|
||||
LoadDll;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user