Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

ifWindowName = '(AnyName)' thenPWindowName := nil

elsePWindowName := StrPCopy(PChar(@AWindowName), WindowName);

ifFindWindow(PWindowClass, PWindowName) <> 0 thenWindowExists := true

else WindowExists := false;

end; {WindowExists}

functionWindowsDirectory: string;

{----------------------------------------------------------------}

{ Возвращаем путь к каталогу Windows (без обратной косой черты) }

{----------------------------------------------------------------}

constBufferSize = 144;

varABuffer: array[0..BufferSize] ofChar;

begin

ifGetWindowsDirectory(PChar(@ABuffer), BufferSize) = 0 thenWindowsDirectory := ''

elseWindowsDirectory := StrPas(PChar(@ABuffer));

end; {WindowsDirectory}

functionGetIni( constIniFile, Section, Entry: string): string;

{----------------------------------------------------------------}

{ Получаем инициализационную 'profile' строку из определенного }

{ пункта (Entry) определенной секции [Section] определенного }

{ INI-файла (дополняем '.ini', если отсутствует). Возвращаем }

{ нулевую строку, если IniFile, Section или Entry не найден. }

{----------------------------------------------------------------}

var

IniFileVar: string;

IniFileObj: TIniFile;

begin

ifStrEndsWith(IniFile, '.ini') thenIniFileVar := IniFile

elseIniFileVar := IniFile + '.ini';

IniFileObj := TIniFile.Create(IniFileVar);

GetIni := IniFileObj.ReadString(Section, Entry, '');

IniFileObj.Free;

end; {GetIni}

Nomadicотвечает:

A: (AP): Решаются так…

В regedit убейте из секции HKLM\SOFTWARE\Microsoft\Windows\Help все, что равно «…\help».

Изменив соответствующие пути, импортируйте в реестр следующий файлик:

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\AppPaths\delphi32.exe]

@="C:\\DELPHI2\\BIN\\delphi32.exe

"Path"="C:\\DELPHI2\\HELP"

Igor Nikolaev aKa The Spriteпишет:

Hаткнулся в инете на некий модуль StopIce, и любопытство сделало своё дело. Как долго я смеялся… :))))

Для тех, кто не в курсе: посмотрите export NmSymIsSoftIceLoaded (или что-то подобное) в nmtrans.dll.

Вот полный юнит против SOFTICE, при обнаружении отладчика перезагружает компьютер:

unitStopIce;

interface

implementation

usesWindows;

FunctionIsSoftIce95Loaded: boolean;

VarhFile: Thandle;

Begin

result := false;

hFile := CreateFileA('\\.\SICE', GENERIC_READ orGENERIC_WRITE, FILE_SHARE_READ orFILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if(hFile <> INVALID_HANDLE_VALUE) then begin

CloseHandle(hFile);

result := TRUE;

end;

End;

FunctionIsSoftIceNTLoaded: boolean;

VarhFile: Thandle;

Begin

result := false;

hFile := CreateFileA('\\.\NTICE', GENERIC_READ orGENERIC_WRITE, FILE_SHARE_READ orFILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if(hFile <> INVALID_HANDLE_VALUE) then begin

CloseHandle(hFile);

result := TRUE;

end;

End;

functionWinExit(flags: integer): boolean;

functionSetPrivilege(privilegeName: string; enable: boolean): boolean;

var

tpPrev, tp: TTokenPrivileges;

token: THandle;

dwRetLen: DWord;

begin

result := False;

OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES orTOKEN_QUERY, token);

tp.PrivilegeCount := 1;

ifLookupPrivilegeValue( nil, pchar(privilegeName), tp.Privileges[0].LUID) then begin

ifenable thentp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED

elsetp.Privileges[0].Attributes := 0;

dwRetLen := 0;

result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen);

end;

CloseHandle(token);

end;

begin

ifSetPrivilege('SeShutdownPrivilege', true) then begin

ExitWindowsEx(flags, 0);

SetPrivilege('SeShutdownPrivilege', False)

end;

end;

initialization

ifIsSoftIce95Loaded orIsSoftIceNTLoaded then begin

WinExit(EWX_SHUTDOWN orEWX_FORCE);

Halt;

end;

end.

Я создал файл помощи для моего приложения и назвал его KidsHelp.hlp

При запуске в системе, в которой файл был создан, программа находит его без проблем. Данная машина имеет конфигурацию Pentium 120 с установленной Windows 95. При запуске программы на второй системе, с Windows 3.1, при выборе пункта меню «Using Help» программа не может открыть файл. Я создал файл помощи с помощью программы «HC31.exe». В самом проекте я не указывал полный путь к файлу помощи, я указал только его имя.