Delphi Onderdils The Delphi Resources

This example is how to call another window that mean is show window with an animation. we use two form to demontration this windows api function. this funtion is derived from  user32 library .

syntax: function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; stdcall;

3 parameters:

• hWnd is windows handle
• dwTime is how long the process is running
• dwFlags is model of animate

Ok next …

Continue Reading…

we can take advantage of the position of the folder of the application that we are making. for example calling the help file, call the report file, database access and so forth by utilizing  application.exename

• create new application
• add 3 edit to form
• add button to form
• double click button1
• write this code

procedure TForm1.Button1Click(Sender: TObject);
 begin
 caption:=application.exename;
 edit1.Text:=application.exename;
 edit2.Text:=extractfilepath(application.exename);
 edit3.Text:=extractfilename(application.exename);
 end;

source code

Continue Reading…