نوشتن و اجرا برنامه بدون ایجاد فرم [بایگانی]

spicirmkh

سه شنبه 08 اردیبهشت 1383, 19:44 عصر

سلام

آیا می شود برنامه ای نوشت که فرم ایجاد نکنیم اما برنامه قابل اجرا باشد چون دلفی نیاز حتما به یک فرم دارد

سوال دوم : آیا می شود برنامه ای یا تایع را قبل از اجرا فرم اصلی فراخوانی کرد مثل من برنامه ActiveX نوشتم باید قبل از فرم اصلی خوانده شود

با تشکر از دوستان عزیز
مرتضی

مهدی کرامتی

سه شنبه 08 اردیبهشت 1383, 21:17 عصر

آیا می شود برنامه ای نوشت که فرم ایجاد نکنیم اما برنامه قابل اجرا باشد چون دلفی نیاز حتما به یک فرم دارد
بله، میشه، اما دقیقا میخواهید برنامه موردنظر چه کاری انجام دهد؟

آیا می شود برنامه ای یا تایع را قبل از اجرا فرم اصلی فراخوانی کرد
بله.
از منوی Project گزینه View Source را انتخاب کنید. چیزی که می‌بینید چنین چیزی خواهد بود:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
دستورات مورد نظر را قبل از <span dir=ltr>Application.Initialize;</span> اضافه کنید.

spicirmkh

چهارشنبه 09 اردیبهشت 1383, 11:00 صبح

سلام

در مورد سوال اول فرض می خواهیم برنامه به نام Register بنویسیم که یک ActiveX را روی سیستم نصب کند بدون اینکه فرم یا پیغامی بدهد

در مورد دوم من برنامه Activex نوشتم می خواهم قبل از اینکه فرم ایجاد شود برنامه ActiveX اجرا شود و نصب پس قیا ایجاد فرم بگذارم یعنی می خواهم تابع Ceartocx اجرا کنم این تایع در یونیت ACTOCX وجود دارد

با تشکر از تمامی دوستان
مرتضی

مهدی کرامتی

چهارشنبه 09 اردیبهشت 1383, 12:04 عصر

به این مثال توجه کنید.

نکته 1: این مثال برای تست اینکه ActiveX رجیستر شده یا نه ابتدا سعی میکند یک نمونه از آن را ایجاد کند. اگر عملیات ایجاد با مشکل مواجه شد نشانه آن است که ActiveX قبلا رجیستر نشده است و بنابراین آنرا رجیستر میکند.

نکته 2: برای بوجود آوردن یونیت ShockwaveFlashObjects_TLB و یا هر یونیت Type Library دیگری (TLB) کافی است از منوی کامپوننت ActiveX مورد نظر را Import کنید. فایل TLB مربوطه بطور خودکار ساخته خواهد شد و سپس میتوانید آنرا در برنامه تان Use کنید.

program Project1;

uses
ShockwaveFlashObjects_TLB,
Dialogs,
Windows,
SysUtils,
Classes,
Controls,
Forms,
Unit1 in 'Unit1.pas' {Form1}

{$R *.RES}

{ Function GetWinSysDir() }
function GetWinSysDir: string;
var
n: integer;
p: PChar;
begin
n := MAX_PATH;
p := stralloc(n);
getsystemdirectory(p, n);
Result := Result + strpas(p);
end;

{Function CopyFile() }
procedure Copyfile(InFile, OutFile: string);
var
Inf, Outf: TFileStream;
Over: Boolean;
res: word;
InFFale, OutFFale: boolean;
begin
if FileEXists(InFile) then
begin
if FileExists(OutFile) then
begin
// Res := MessageDlg('Do you want to overwrite existing file?', mtWarning,
// [mbYes, mbNo], 0);
// Over := (Res = mrYes);
Over:=True;
end
else
Over := true;
inffale := false;
outffale := false;
if over then
begin
try
try
InF := TFileStream.Create(Infile, Fmopenread or fmShareDenyNone);
except
on e: Exception do
inffale := true;
end;
try
OutF := TFileStream.create(Outfile, FmCreate or FmShareExclusive);
except
on E: Exception do
outfFale := true
end;
outf.copyfrom(Inf, 0);
finally
if not inffale then
FreeAndNil(Inf);
if not outfFale then
FreeAndNil(outF);
end;
end;
end;
end;

{Function RegisterOCX() }
function RegisterOCX(OcxFilename: string): Boolean;
var
hDll: THandle;
pFunc: function: Integer;
nResult: Integer;
begin
{ This sample implies that the dll is in the PATH }
hDll := LoadLibrary(pchar(OcxFilename));
if hDll = 0 then
MessageDlg('Cannot load library ' + OcxFilename, mtError, [mbOK], 0)
else
begin
pFunc := GetProcAddress(hDll, 'DllRegisterServer');

if not Assigned(pFunc) then
MessageDlg('Library does not export function DllRegisterServer.',
mtError, [mbOK], 0)
else
begin
nResult := pFunc();

if nResult <> 0 then
result := false
else
result := true;
end;
FreeLibrary(hDll);
end;

end;

{ Program Main Body}
var
p: TShockwaveFlash;

begin
try
p := TShockwaveFlash.Create(nil);
except
//ShowMessage('Flash Player Not Installed');
if (FileExists(GetWinSysDir + '\Macromed\Flash\Flash.ocx')) then
begin
RegisterOCX(GetWinSysDir + '\Macromed\Flash\Flash.ocx');
end
else
begin
If Not(FileExists(GetWinSysDir + '\Flash.ocx')) Then
CopyFile(ExtractFilePath(Application.exename)+'Fla sh.ocx', GetWinSysDir + '\Flash.ocx');
RegisterOCX(GetWinSysDir + '\Flash.ocx');
end;
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

spicirmkh

چهارشنبه 09 اردیبهشت 1383, 14:11 عصر

با سلام و تشکر

من DELPHI 5 دارم برنامه که می خواهم اجرا کنم به اولینFunction که می رسد Error می دهد
پیغام خطا این است

[Error] Project1.dpr(16): ',' or ';' expected but 'FUNCTION' found

با تشکر

مهدی کرامتی

چهارشنبه 09 اردیبهشت 1383, 15:27 عصر

فکر کنم منظورش اینه که باید

Unit1 in 'Unit1.pas'
را بصورت

Unit1 in 'Unit1.pas';
تغییر دهید :)