RSS|Ͷ
λãվҳ > ϵͳ

delphi RunAsAdmin гԱȨ

procedureRunAsAdmin(constaFile:string;constaParameters:string='';Handle:HWND=0);varsei:TShellExecuteInfo;beginFillChar(sei,SizeOf(sei),0);sei.cbSize:=SizeOf(sei);sei.Wnd:=Handle;sei.fMask:=SEE_MASK_FL
ϵͳ ǩ ߣadmin ڣ2018-01-15 14.52.10

delphiִcmdbatļ

cmd:='echod|Xcopy'+BasePath+''+TargetPath+'/s/e';i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K'+cmd),nil,SW_HIDE);ShellExecute(Handle,nil,'cmd.exe',pchar('/C'+GetCurrentDir+'\build.bat'),nil,SW_HIDE)
ϵͳ ǩ ߣadmin ڣ2018-01-15 13.38.01

DELPHIдķڷʾ

DELPHIдķ򣬿XPϵͳķʾơû롰ӦķʾհסμԼġأĿǰַ1޸עHKEY_LOCAL_MA
ϵͳ ǩ ߣadmin ڣ2018-01-15 11.06.04

delphi ȡʱļ·

//:GetTempPath(nBufferLength:DWORD;{С}lpBuffer:PChar{}):DWORD;{ʵʳ}//:vararr:array[0..MAX_PATH]ofChar;num:DWORD;...
ϵͳ ǩ ߣadmin ڣ2018-01-14 09.41.05

delphi ϵͳҼ˵

unitPopupMenuShell;interfaceusesWindows,Messages,SysUtils,StrUtils,ComObj,ShlObj,ActiveX;functionDisplayContextMenu(constHandle:THandle;constFileName:string;Pos:TPoint):Boolean;implementationtypeTUnic
ϵͳ ǩ ߣadmin ڣ2018-01-13 17.03.14

Delphi֮ϵͳOEM DIY

//תעunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,ExtDlgs,Registry;typeTForm1=class(TForm)GroupBox1:TGroupBox;Label1:T
ϵͳ ǩ ߣadmin ڣ2018-01-12 15.40.06

Delphi֮ʾֱ

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;procedureFormCreate(Sender:TObject);private{Privatedecla
ϵͳ ǩ ߣadmin ڣ2018-01-12 15.38.08

Delphi֮Win10ͼ

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.ComCtrls,Vcl.StdCtrls,Registry,ShlObj;typeTForm
ϵͳ ǩ ߣadmin ڣ2018-01-12 15.37.22

delphi ˢϵͳͼ껺

ԪShlObj<codeclass="delphiplain"style="white-space:nowrap;border-radius:0px!important;background:none!important;border:0px...
ϵͳ ǩ ߣadmin ڣ2018-01-12 15.34.20

delphi ֤administer UACȨ

RunElevatedSupport.pasunitRunElevatedSupport;{$WARNSYMBOL_PLATFORMOFF}{$R+}interfaceusesWindows;typeTElevatedProc=function(constAParameters:String):Cardin...
ϵͳ ǩ ߣadmin ڣ2018-01-11 14.34.37

delphi win10ϵͳѹԱȨӦó

usesShellApi,...;functionRunAsAdmin(constHandle:Hwnd;constPath,Params:string):Boolean;varsei:TShellExecuteInfoA;beginFillChar(sei,SizeOf(sei),0);sei.cbSize:=SizeOf(sei);sei.Wnd:=Handle;sei.fMask:=SEE_
ϵͳ ǩ ߣadmin ڣ2018-01-11 14.31.53

delphi XE汾 cmdȡַ

procedureCheckResult(b:Boolean);beginifnotbthenraiseException.Create(SysErrorMessage(GetLastError));end;functionRunDOS(constCommandLine:string):string;varHRead,HWrite:THandle;StartInfo:TStartupInfoA;P
ϵͳ ǩ ߣadmin ڣ2018-01-09 07.57.54

Delphi ֹAlt+F4ر

procedureWMSysCommand(varMsg:TWMSysCommand);messageWM_SYSCOMMAND;procedureWMSysCommand(varMsg:TWMSysCommand);beginifMsg.CmdType<>SC_CLOSEtheninheritedend;
ϵͳ ǩ ߣadmin ڣ2018-01-09 07.57.27

Delphi ʵжWindowsӦó360ܼ-жس

ժҪҪʵжس򲢵ȴжسнķǵжسѶҲ󣬵ҪȴжسִϣЩԽˣDz뵽360?û360Ҳܣ⡭
ϵͳ ǩ ߣadmin ڣ2018-01-05 22.28.42

Delphi дFormʾڵڶʾеķ

ٶҪʾչĵڶʾFormΪfrmFloatҪøformtopleftwidthheightΪScreen.Monitors[1].Top,Screen.Monitors[1].Left,Screen.Monitors[1].Width,Screen.Monitors[1].Height⣬
ϵͳ ǩ ߣadmin ڣ2018-01-05 18.10.45

delphi ϵͳԻĿ¼صɳ޷ʱʽ

˵ʵڻұŲ֪ˣԭʵϵΪֹδҵṩһʱĽ취ʹöʱ鵱ǰ̵ĻScreen.ActiveFormǷһ£һ£Screen.
ϵͳ ǩ ߣadmin ڣ2018-01-05 17.39.14

DELPHI ̨ȡϵͳϢ

//DELPHĮСܲ١Ǻ--XIAO2013.5programConsole;{$APPTYPECONSOLE}usesWindows,SysUtils,TLHelp32;{$R*.RES}functionGetWinDir:string;varBuf:array[0..MAX_PATH]...
ϵͳ ǩ ߣadmin ڣ2018-01-03 23.09.00

delphi жUEFI Legacy BIOSģʽ

{$APPTYPECONSOLE}usesWindows,SysUtils;functionGetFirmwareEnvironmentVariableA(lpName,lpGuid:LPCSTR;pBuffer:Pointer;nSize:DWORD):DWORD;stdcall;externalkernel32name'GetFirmwareEnvironmentVariableA';begi
ϵͳ ǩ ߣadmin ڣ2018-01-02 19.52.43

delphi Ӽ

ĽDelphiʹá塱ḻԼܡ----Windowsʹü۲͹۲۲һʾ嵱ǰݵĴڡͨӦʾͨʽݣCF_TEXTλͼ
ϵͳ ǩ ߣadmin ڣ2018-01-02 15.31.17

delphi жCOM˿Ƿ

POS豸ij˿,СƱӡLPT1,ɨǹӵCOM1,ڿ豸֮ǰ,ӦжϵǷӦĶ˿,DelphiЩ˿ںļIJһ,дԶ˿Ƿڵĺ:
ϵͳ ǩ ߣadmin ڣ2018-01-02 14.45.53