melice

function IsWin64: Boolean;
var
 Kernel32Handle      : THandle;
 IsWow64Process      : function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;
 GetNativeSystemInfo : procedure(var lpSystemInfo: TSystemInfo); stdcall;
 isWoW64             : Bool;
 SystemInfo          : TSystemInfo;
const
 PROCESSOR_ARCHITECTURE_AMD64 = 9;
 PROCESSOR_ARCHITECTURE_IA64  = 6;

melice

function FileExists64(const FileName: string):Boolean;
type TWow64DisableWow64FsRedirection = function(var Wow64FsEnableRedirection: LongBool): LongBool; stdcall;
     TWow64EnableWow64FsRedirection  = function(Wow64FsEnableRedirection: LongBool): LongBool; stdcall;

var  hHandle: THandle;
     Wow64DisableWow64FsRedirection : TWow64DisableWow64FsRedirection;
     Wow64EnableWow64FsRedirection  : TWow64EnableWow64FsRedirection;
     Wow64FsEnableRedirection       : LongBool;
begin
 hHandle := GetModuleHandle('kernel32.dll');

sherrier

@echo Setting IP for Office
netsh interface ip set address name="无线网络连接" source=static addr=192.168.23.19 mask=255.255.240.0 gateway=192.168.16.1 gwmetric=1
netsh interface ip set dns "无线网络连接" static 172.16.50.240

margusmartsepp

unit Gamedisplayer;

interface

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

type
  TGamedisplay = class(TForm)

DasLampe

unit bubblesort;

interface

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

type
  TForm1 = class(TForm)