skypelauncher تحميل + تعديل على البرنامج

[TF6M]

السلام عليكم و رحمة الله و بركاته
- محتويات السورس :
لودر بسيط & تعديل على برنامج Skype نسخة 3.6

PHP كود :

program SkypeLoader;
{$WARNINGS OFF}
{$HINTS OFF}
uses
  Windows,Messages,sysutils,Tlhelp32,ShellApi;

{***************************************************** Coded By TF6M}
                          //04-07-2010
{***************************************************** Coded By TF6M}
Function GetSkypePath : String;
Var buf: PChar;
Begin
 buf:= StrAlloc(MAX_PATH);
 GetEnvironmentVariable('ProgramFiles', buf, MAX_PATH);
 Result:= buf + '\Skype\Phone\Skype.exe';
 StrDispose(buf);
End;

Function IsRun:Boolean;//If We Want !.
Var
 Handle: THandle;
 Struc: TProcessEntry32;
 wMax: Byte;
Begin
 Result:= False;wMax:= 0;
 Handle:=CreateToolHelp32SnapShot($00000002, 0);
 Struc.dwSize:=Sizeof(TProcessEntry32);
 While Process32Next(Handle, Struc) Do
  Begin
   If Struc.szExeFile = ExtractFileName(GetSkypePath)Then
        Inc(wMax);
   If wMax >= 1 Then Result:= True;
  End;
End;

Function LoadSkype (nfSKYPE: String;RVA:Integer;pValue :Byte):Boolean;
//nfSKYPE # GetEnvironmentVariable
Var
 pInfo: TProcessInformation;
 sInfo: TStartUpInfo;
 Buff : Pchar;
 bCont: Dword;
Begin
Result:= False;//Initialization !.
//-------------------------------(1)
//FillMemory , Dispose , FreeMem .
ZeroMemory(@pInfo,SizeOf(pInfo));
ZeroMemory(@sInfo,SizeOf(sInfo));
GetStartUpInfo(sInfo);
//-------------------------------(2)
sInfo.cb:= SizeOf(TStartUpInfo);
Result:= CreateProcess(Nil,Pchar(nfSKYPE)
                      ,Nil,Nil,False,CREATE_SUSPENDED
                      ,Nil,Nil,sInfo,pInfo);
//-------------------------------(3)
If Not Result Then
 MessageBoxA(0, 'Target not found!',Nil, $2000 + $40000)
Else
 Begin
  GetMem(Buff, 1);
  Buff^ := Chr(pValue);
  WriteProcessMemory(pInfo.hProcess,Ptr(RVA),Buff,1,bCont);
  ResumeThread(pInfo.hThread);
  FreeMem(Buff);
 End;
//-------------------------------(4)
CloseHandle(pInfo.hProcess);
End;

begin
//-------------------------------(5)
If IsRun Then
  LoadSkype(GetSkypePath,$00E645A4,$74)
 Else
  ShellExecute(0,Nil,Pchar(GetSkypePath),Nil,Nil,1);
end.
{***************************************************** Coded By TF6M}
                          //04-07-2010
{***************************************************** Coded By TF6M} 


بالتوفيق ,,