تمامی مسائل و مباحث در مورد دلفی

طریقه لیست کردن فایل و فلدر های یه مسیر خاص:

کد:

---

procedure FindAll (const Path: String;
                          Attr: Integer;
                          List: TStrings) ;
var
  Res: TSearchRec;
  EOFound: Boolean;
begin
  EOFound:= False;
  if FindFirst(Path, Attr, Res) < 0 then
    exit
  else
    while not EOFound do begin
      List.Add(Res.Name) ;
      EOFound:= FindNext(Res) <> 0;
    end;
  FindClose(Res) ;
end;

---

البته یه راه دیگه هم هست برای عوض کردن زبان سیستم:

کد:

---

ActivateKeyboardLayout(HKL_NEXT        , KLF_REORDER);

---

اجرای هر فایل دلخواه:
البته اونهایی که توسط سیستم یا نرم افزارهای دیگه شناخته شده باشن.:

کد:

---

uses
  Shellapi;

function StartAssociatedExe(FileName: string; var ErrorCode:

 Cardinal): Boolean;


var
  Prg: string;
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
begin
  SetLength(Prg, MAX_PATH);
  Result := False;
  ErrorCode := FindExecutable(PChar(FileName), nil,

 PChar(Prg));
  if ErrorCode >= 32 then
  begin
    SetLength(Prg, StrLen(PChar(Prg)));
    FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
    with StartupInfo do
    begin
      cb := SizeOf(TStartupInfo);
      wShowWindow := SW_SHOW;
    end;
    if CreateProcess(PChar(Prg), PChar(Format('%s %s', [Prg, FileName])),
      nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil,

StartupInfo, ProcessInfo) then


    begin
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, ErrorCode);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
      Result := True;
    end
    else
      ErrorCode := GetLastError;
  end;
end;

--------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  ErrorCode: Cardinal;
begin
  StartAssociatedExe('c:\delphi_learn.pdf', ErrorCode);
end;

---

اینم سورس برنامه startup
[HTML]http://www.4shared.com/file/25221453/2d243282/StartUp.html[/HTML]

نقل قول:

---

نوشته شده توسط Morteza_SOS [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

به نام خدا
با سلام لطفا به بنده یاد بدهید چگونه می توانم یک برنامه کوچک دیکشنری مثلا فقط برای 200 الی 300 حروف بسازم اگر ممکن است آموزش به صورت فارسی باشد .

---

خيلي ساده مي توني اين كار رو انجام بدي فقط لازمه يك بانك اطلاعاتي فرقي نمي كنه با Sql ، Access يا ... براي لغات و معاني اونها ايجاد كني سپس با استفاده از دلفي به پايگاه داده مورد نظر وصل و بقيه اعمال رو در دلفي انجام بدي اگر نياز دارين بگيد تا بيشتر راهنمايي كنم

سلام
براي اين كه فرم شما به شكل بيضي در بياد مي تونيد از كد زير استفاده كنيد
داخل OnCreate‌فرم كدهاي زير رو بنويسيد

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
var x:THandle;
begin
x:=CreateEllipticRgn(50,40,300,200);
SetWindowRgn(Handle,x,true);
end;

---

كه عددهاي 50و40و300و200 رو مي تونيد به دلخواه تغيير بدين تا اندازه مورد نظرتون رو بدست بيارين

سلام
چطور ميتوان فايل excelرا در دلفي باز كرد؟

ویرایش شد..........

سلام

برای این کار می تونید از کنترل OleContainer استفاده کنید

روش استفاده :

1- از سربرگ System یک کنترل OleContainer روی فرم قرار بدین

2- روی آن دوبار کلیک کنید در این پنجره دو تا گزینه وجود داره
گزینه اول: Create New برنامه های پیش فرض خود دلفی
گزینه دوم : Create from File توسط این گزینه می تونید برنامه مورد نظر را از هارد خودتون انتخاب کنید

3- بعد از کلیک روی Create from File با استفاده از دکمه Browse فایل مورد نظرتون رو انتخاب کنید

4- با اجرای برنامه و کلیک روی OleContainer برنامه مورد نظر اجرا میشه

5 - برای این که کنترل OleContainer در فرم مشخص نباشد و ظاهر برنامه را خراب نکند می تو نید مقدار خاصیت Visible آن را False قرار بدین بعد از این کار در یک Button کد زیر را برای اجرا شدن آن بنویسید

کد:

---

OleContainer.Doverb(0);

---

سیو کردن یه پیج اینترنتی با پسوند html :

کد:

---

uses ActiveX;
...
procedure WB_SaveAs_HTML
(WB:TWebBrowser; const FileName : string);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  FileStream: TFileStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;

  PersistStream := WB.Document as IPersistStreamInit;
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
    Stream := TStreamAdapter.Create(FileStream, soReference)
              as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('SaveAs HTML fail!');
  finally
    FileStream.Free;
  end;
end;

---

طریقه استفاده:

کد:

---

  WebBrowser1.Navigate('http://delphi.about.com');
 
  WB_SaveAs_HTML(WebBrowser1,'c:\WebBrowser1.html');

---