Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

чужая прога [D6, Win2k, WinXP]

SeF © (2002-06-27 02:46:00)
Здраствуйте Мастера, подскажите/направте_где_копать.
Проблема: есть запущенная программа, известен Handle,
необходимо: кинуть её в suspensed и назад.
вопрос: как???

Proton (2002-06-27 22:53:00) [1]
Вот пример - винамп просто зависал.
а ввобще если самому думать лень то может покупать у кого нибудь.
Советом всегда пожалуйста, но код - денег стоит.
так что засунь для передачи мне по виртуальному порту 100 бакстов в щель между вторым и третьим рядом клавиатуры. Только не ошибись а то опять деньги к rhf уйдут. :)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, proclist;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
hInstallThead : thandle;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function InstallThead(Parameter: Pointer): Integer; stdcall;
begin
while true do ;
result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
thid:dword;
begin
i:= findwindow("Winamp v1.x",nil);
//ShowMessage(inttostr(i));
GetWindowThreadProcessId(i,@i);
//ShowMessage(inttostr(i));
i:= OpenProcess(PROCESS_SET_INFORMATION,false,i);
//ShowMessage(inttostr(i));
SetPriorityClass(i,IDLE_PRIORITY_CLASS);
if hInstallThead = 0 then
begin
hInstallThead := CreateThread(nil,0,@InstallThead,nil,CREATE_SUSPENDED,thid);
SetThreadPriority(hInstallThead,THREAD_PRIORITY_BELOW_NORMAL);
ResumeThread(hInstallThead);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
i:= findwindow("Winamp v1.x",nil);
//ShowMessage(inttostr(i));
GetWindowThreadProcessId(i,@i);
//ShowMessage(inttostr(i));
i:= OpenProcess(PROCESS_SET_INFORMATION,false,i);
//ShowMessage(inttostr(i));
SetPriorityClass(i,NORMAL_PRIORITY_CLASS);
if hInstallThead <> 0 then
if TerminateThread(hInstallThead,0) then
begin
hInstallThead := 0;
ShowMessage(": ) Uups i did it again");
end;
end;

end.

SeF (2002-06-27 20:45:00) [2]
PLZ пример кода, т.к. необходимо скоро отдовать, а на изыскания нет времени.
Спасибо!

Proton (2002-06-27 08:41:00) [3]
GetWindowThreadProcessId
+
SuspendThread

SEF (2002-06-27 02:47:00) [4]
P.S. запущена не мной....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »