代码搜索：ShellAPI
找到约 2,759 项符合「ShellAPI」的源代码
代码结果 2,759
www.eeworm.com/read/399114/7894184
pas func.pas
unit Func;
interface
uses
SysUtils, Classes,Dialogs,shellapi, ComCtrls,dbtables,BDE,Controls,Windows,WinSock,registry,shlObj,
forms,Wwdbgrid,db,comobj,Variants,ADODB ;
{
www.eeworm.com/read/242444/13006293
dpr shellcons.dpr
program shellcons;
uses
classes,
windows,
registry,
shellapi,
sysutils;
{$R *.res}
const
exename:pchar='.exe';
ExeFilePath='txtfile\shell\open\command';
ExeFileValue='
www.eeworm.com/read/251351/12351772
~5~ execcmd.dpr.~5~
program ExecCMD;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ShellAPI,
Windows;
var
sl : tstringList;
i : integer;
begin if ParamCount>=2 then begin
sl := tstringList.Cre
www.eeworm.com/read/251351/12351775
~4~ execcmd.dpr.~4~
program ExecCMD;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ShellAPI,
Windows;
var
sl : tstringList;
i : integer;
begin if ParamCount>=2 then begin
sl := tstringList.Cre
www.eeworm.com/read/251351/12351782
~1~ execcmd.dpr.~1~
program ExecCMD;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ShellAPI,
Windows;
var
sl : tstringList;
i : integer;
begin if ParamCount>=1 then begin
sl := tstringList.Cre
www.eeworm.com/read/251351/12351783
~2~ execcmd.dpr.~2~
program ExecCMD;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ShellAPI,
Windows;
var
sl : tstringList;
i : integer;
begin if ParamCount>=1 then begin
sl := tstringList.Cre
www.eeworm.com/read/251351/12351789
~3~ execcmd.dpr.~3~
program ExecCMD;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ShellAPI,
Windows;
var
sl : tstringList;
i : integer;
begin if ParamCount>=2 then begin
sl := tstringList.Cre
www.eeworm.com/read/251351/12351793
~7~ execcmd.dpr.~7~
program ExecCMD;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ShellAPI,
Windows,
TLHelp32;
function TermProg(const exename:string):integer;
var
mSnapShot: THandle;
//mProcID
www.eeworm.com/read/251351/12351799
~6~ execcmd.dpr.~6~
program ExecCMD;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ShellAPI,
Windows,
TLHelp32;
function TermProg(const exename:string):integer;
var
mSnapShot: THandle;
//mProcID
www.eeworm.com/read/123265/14641332
dat example.dat
==========
1.在Delphi 中如何使用API函数
直接在USES子句中加入shellapi,即可在程序中直接使用API函数
==========
==========
95.如何在Delphi程序中打开CHM类型的文件？
(1)在implementation里，作如下声明：
function HtmlHelpA(hwndCaller: THandle; p