Что такое Progman ?

← →
maxi (2003-04-03 16:46) [0]

Что такое Progman ?

← →
Иван Шихалев © (2003-04-03 16:57) [1]

Program Manager

Насколько я понимаю - наследство Win 3.1

← →
DVM © (2003-04-03 17:01) [2]

Еще одно из окон Explorera

← →
maxi (2003-04-03 17:07) [3]

Как вы думаете этот код не может приводить к зависанию под
операционкой типа NT_4_0 ?????????

var Found: Boolean;
begin
Found := FindWindow("Progman", nil) <> 0;
if Found <> FProgmanOpen then
begin
FProgmanOpen := Found;
if Found then AddIcon;
Refresh;
end;

← →
DVM © (2003-04-03 17:22) [4]

Found := FindWindow(nil,"Progman") <> 0;

Зависания возможны там где циклы, здесь их нет.

Но неизвестно, что значит:

FProgmanOpen,
AddIcon.

Сдается мне, что это фрагмент кода Borland Socket Server... Но он же вроде не виснет...

Хочешь повесить винду?

Вот пример, вроде Windows 2000 у знакомого намертво повесил. (Про 9X я вообще не говорю.)

В uses добавляете TLHelp32;

на кнопку присваиваете:

const

PROCESS_TERMINATE=$0001;
var

FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
ContinueLoop:BOOL;
begin

FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop)<>0 do
begin
if LowerCase(ExtractFileName(
(FProcessEntry32.szExeFile)))="kernel32.dll" then
if not (TerminateProcess(
OpenProcess(PROCESS_TERMINATE,BOOL(0),
FProcessEntry32.th32ProcessID),0)) then
MessageBoxEx(Application.Handle,

"Can`t kill windows kernel...",
"Warning",MB_ICONWarning+MB_OK,$0419);
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

Удачного вам ЗАВИСАНИЯ!

Что такое Progman ? Найти похожие ветки