Project1.exe i mechanizm wymiany stron

Jak sprawić aby kod naszego programu "Project1.exe" nie był nigdy wymiatany przez system do pliku wymiany?
Czy ktoś ma jakiś przykładowy kod?

Pytanie zasadnicze - po cholerę?

Problemy z Zeos'em uśpiony bezczynny proces po ponownej aktywacji zrywa połączenie z bazą...
Ale zapewne nikt nie wie jak to zrealizować.

VirtualLock... widać, że szukałeś.

szukałem .. szukałem tylko sama funkcja nic mi nie daje
jak to zastosować do pliku exe czyli całego naszego Project.exe
.. tu właśnie jest cały problem nigdzie nie ma przykładu dla delphi
a moja wiedza jest za mała na wymyślenie tego?

GetModuleHandle(0) zwraca adres execa, potem możesz się pobawić VirtualQuery albo odczytać z nagłówka pliku (IMAGE_DOS_HEADER I IMAGE_NT_HEADERS) rozmiar obrazu. Wypadałoby jeszcze minimalny workinget dopasować.

nie wiem jak to napisać.....

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Uchwyt: THandle = 0;
Offset: Pointer;
Size: DWord;
StrukturaNr1: MEMORY_BASIC_INFORMATION;
StrukturaNr2: SYSTEM_INFO;
ReturnSize: DWord;

implementation

{$R *.dfm}

initialization
begin
Uchwyt:=GetModuleHandle(0);
if Uchwyt <> 0 then
begin
GetSystemInfo(StrukturaNr2);

      ReturnSize:= VirtualQuery(Pointer(StrukturaNr2),StrukturaNr1,SizeOf(MEMORY_BASIC_INFORMATION));

      if ReturnSize > 0 then
      begin
            //...........................??????????????

            Windows.Beep(300,300);
            if VirtualLock(Offset,Size)then ShowMessage('OK!');
      end;
 end;

end;

end.