نکته های ریز در دلفی (تکه برنامه های دلفی)

كساني كه ميخواهند رزولشن صفحه ويندوز را در برنامه خودشون عوض كنند مي توانند از اين كد استفاده كنند :cool: ;)

کد:

---

function SetDisplay1024x768: Boolean;
var
DevMode: TDeviceMode;
begin
EnumDisplaySettings(nil, 0, DevMode);
DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth := 1024;
DevMode.dmPelsHeight := 768;
Result := ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY)
= DISP_CHANGE_SUCCESSFUL;
end;
 //مثال
procedure TForm1.Button1Click(Sender: TObject);
begin
SetDisplay1024x768;
end;

---

سلام ...
يكي ديگه :
با تابع زير به راحتي مي شه فهميد آيا يك نسخه از برنامه درحال اجرا است يا نه :

کد:

---

Function IsRunningApp:Boolean;
var
    Hwnd:Thandle;
begin
    hwnd:=CreateMutex(nil,False,'OneCopyMutex');
    Result:=false;
    If not(WaitForSingleObject(Hwnd,0)<>Wait_TimeOut) then
    Result:=true;
end;

---

براي استفاده كافي كه با يه شرط مقدار True يا False اون رو بدست بياريد و كدهاي مورد نظرتون رو اجرا كنيد ...

کد:

---

if IsRunningApp = True then
begin
YOUR CODE HERE ...
end
else
begin
YOUR CODE HERE ...
end;

---

موفق باشيد ...

سلام ...
با رویه زیر می شه یک آیکون رو به یه عکس با فرمت BMP تبدیل کرد :

کد:

---

Procedure IcoToBmp;
var
  Icon : TIcon;
  Bitmap : TBitmap;
begin
  Icon := TIcon.Create;
  Bitmap := TBitmap.Create;
  Icon.LoadFromFile('c:\picture.ico') ;
  Bitmap.Width := Icon.Width;
  Bitmap.Height := Icon.Height;
  Bitmap.Canvas.Draw(0, 0, Icon ) ;
  Bitmap.SaveToFile('c:\picture.bmp') ;
  Icon.Free;
  Bitmap.Free;
end;

---

موفق باشید ...

نقل قول:

---

نوشته شده توسط مرد مباح

رفقا من يك كتاب به شما معرفي ميكنم كه خيلي از اين فوت و فنها توش هست.
اگه ندارين و فكر كردين كه دنبالش رفتن براتون سخته, بگين كه من چندتا از برنامههاي خفنشو بزارم.

اسم اصلي كتاب Programs in Delphi است كه شمال 296 برنامه كاربردي و حرفه اي است و در روي جلد آن بزرگ نوشته دلفي 6.
البته يكي هم براي دلفي 7 اومده كه فقط اونو ديدم و ندارم.
اولي جلد زرد با رگه هاي سبز و دومي جلد خاكستري با رگه هاي سبز يشمي.

هر دو كتاب از نشر ناقوس است.

---

سلام
من این کتاب رو دارم.
اما مال دلفی 6 هست.
خیلی کتاب با حالیه
راستی اگر کسی دوست داره
بگه که بیشتر در مورد چی بنویسیم
اینطوری بهتر هم میشه

با این کد می تونید تشخیص بدید که برنامه ای بخوبی کار می کنه یا در حالت Not Responding است

بايد از تابع SendMessageTimeOut استفاده كنيد

کد:

---

function isHung(theWindow:HWnd;timeout : longint): boolean;
var
        dwResult : DWord;
begin
        Result := SendMessageTimeOut(theWindow,WM_NULL,0,0
                SMTO_ABORTIFHUNG Or SMTO_BLOCK, TimeOut,dwResult) <> 0;
end;

---

نقل قول:

---

سلام
من این کتاب رو دارم.
اما مال دلفی 6 هست.
خیلی کتاب با حالیه
راستی اگر کسی دوست داره
بگه که بیشتر در مورد چی بنویسیم
اینطوری بهتر هم میشه

---

سلام ...
منم اين كتاب رو دارم و كتاب خوبيه ..
سعي مي كنم مثالهاي كاربرديش رو اينجا بنويسم ...
موفق باشيد ...

سلام

تاپيك خيلي خوبي هست و خواهد بود

در اين بين از اموزش دوستم كه طريقه تغيير شكل فرم رو گذاشته بود واقعا بكارم امد

ممنون ( منم حتما با دست پر خواهم امد)

سلام به همگي سلجر عزيز و آق محمود گل و hp بلبل
خوب ممنونم كه براي بهتر شدن تاپيك همكاري مي كنيد

خوب اينم سه تا تابع جديد براي ويندوز كه البته خود دلفي از توابع api بهره می گیره

کد:

---

Shutdown/restart windows

Uses Shellapi;
ExitWindowsEx(ewx_Shutdown,0); to shutdown
ExitWindowsEx(ewx_Reboot,0); to restart
ExitWindowsEx(ewx_Poweroff,0); to off your computer power

---

خوب در پایان در صورت امکان اسم حقیقی خودتونو بگید ممنون میشم
مخلص شما حسام :biggrin: خان :laughing: :cool:

اينم اجراي يک برنامه ديگه توي برنامه خودتون درحالي که تا برنامه اجرا شده بسته نشه برنامه شما کار نکنه
البته قاعدتا برنامه در دلفي 6 اجرا ميشه.
من روي دلفي 7 فرماني معادل با GetModuleUsage پيدا نکردم.
اگه کسي معادلشو ميدونه تو همين تاپيک بنويسه که براي دلفي 7 کارا هم قابل استفاده باشه

کد :

[HTML]var
PH : THandle;
begin
PH := Winexec('c:\Windows\Notpad.exe',SW_SHOWNORMAL);
while GetModuleUsage(PH) <> 0 Do
application.processmessage;
end;[/HTML]

سلام
با اين كد مي تونيد براي تغيير جاي فرم هر قسمت فرم رو بگيريد و بكشيد

در بخش private این خط را اضافه کنید.

کد:

---

procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST

---

بعد این پروسیجر رو قبل از end. بگذارید.

کد:

---

procedure TForm1.WmNCHitTest(var Msg : TWMNCHitTest);
begin
        DefaultHandler(Msg);
        if Msg.Result = HTCLIENT then
                Msg.Result := HTCAPTION;
end;

---