代码搜索：sysutils
找到约 10,000 项符合「sysutils」的源代码
代码结果 10,000
www.eeworm.com/read/151483/12206644
pas fmess.pas
unit Fmess;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Gauges;
type
Tmess = class(TForm)
Panel1: TPanel;
T
www.eeworm.com/read/151173/12230630
dpr regserver.dpr
program RegServer;
uses
Forms,
Windows,
SysUtils,
Registry;
{$R *.res}
var
sPath:String;
begin
Application.Initialize;
sPath:=ExtractFilePath(Application.ExeName);
www.eeworm.com/read/339090/12260326
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
private
{ Private declarations }
www.eeworm.com/read/150808/12260385
pas datamodule.pas
unit dataModule;
interface
uses
SysUtils, Classes, DB, DBTables;
type
Tdm = class(TDataModule)
tblUser: TTable;
tblMenu: TTable;
tblOrder: TTable;
private
{ Priva
www.eeworm.com/read/150686/12276908
pas unit3.pas
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm3 = class(TForm)
private
{ Private declarations }
www.eeworm.com/read/252115/12302107
~pas save2.~pas
unit Save2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
private
www.eeworm.com/read/252115/12302146
pas splash.pas
unit Splash;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
private
www.eeworm.com/read/150059/12321013
pas mc_load.pas
unit MC_Load;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, jpeg;
type
TLoad = class(TForm)
Image1: TImage;
private
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