unit MinMax; 

interface  

uses 
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,  Controls, 
Forms, Dialogs; 

type 
TForm1 = class(TForm) 
private  
{ Private declarations } 
procedure WMGetMinMaxInfo(var MSG: Tmessage);  message WM_GetMinMaxInfo; 
public 
{ Public declarations } 
end;  

var 
Form1: TForm1; 

implementation 

{$R *.DFM}  

procedure TForm1.WMGetMinMaxInfo(var MSG: Tmessage); 
Begin  
inherited; 
with PMinMaxInfo(MSG.lparam)^ do 
begin 
with  ptMinTrackSize do 
begin 
X := 300; 
Y := 150; 
end; 
with  ptMaxTrackSize do 
begin 
X := 350; 
Y := 250; 
end; 
end;  
end; 

end.

 
library demodll; 

{ Important note about  DLL memory management: ShareMem must be the 
first unit in your library's  USES clause AND your project's (select 
Project-View Source) USES clause if  your DLL exports any procedures or 
functions that pass strings as parameters  or function results. This 
applies to all strings passed to and from your  DLL--even those that 
are nested in records and classes. ShareMem is the  interface unit to 
the BORLNDMM.DLL shared memory manager, which must be  deployed along 
with your DLL. To avoid using BORLNDMM.DLL, pass string  information 
using PChar or ShortString parameters. } 

uses  
SysUtils, 
Classes, 
UDemo in 'UDemo.pas' {Demo}; 

{$R *.res}  
procedure ShowdemoForm;stdcall; 
begin 
Demo :=Tdemo.Create(nil);  
demo.Show; 
end; 

function ShowdemoFormModal:integer;stdcall;  
begin 
demo :=Tdemo.Create(nil); 
Result := demo.ShowModal; 
end;  

Exports 
ShowDemoForm, 
ShowdemoFormModal; 
begin 
end.  

 

unit UMain; 

interface  

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics,  Controls, Forms, 
Dialogs, StdCtrls, ExtCtrls; 

type  
TShowdemoFormModal= Function :integer; 
. 
. 
. 

 

var 
hndDLLHandle:THandle;  
ShowdemoFormModal:TShowdemoFormModal; 

procedure  TFMain.Button1Click(Sender: TObject); 
begin 
try  
hndDLLHandle:=LoadLibrary('Demodll.dll'); 

if hndDLLHandle <> 0  then begin  
@ShowdemoFormModal:=getProcAddress(hndDLLHandle,'ShowdemoFormModal');  

if addr(ShowdemoFormModal) <> nil then begin  
ShowdemoFormModal; 
end 
else 
showmessage ('function not exists  ...'); 
end 
else 
showMessage('Dll Not Found!'); 
finally  
freelibrary(hndDLLHandle); 
end; 
end;

 var 
ProgressBarStyle: LongInt;  
begin 
{create a run progress bar in the status bar} 
ProgressBar1 :=  TProgressBar.Create(StatusBar1); 
ProgressBar1.Parent := StatusBar1;  
{remove progress bar border} 
ProgressBarStyle :=  GetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE); 
ProgressBarStyle :=  ProgressBarStyle - WS_EX_STATICEDGE; 
SetWindowLong(ProgressBar1.Handle,  GWL_EXSTYLE, ProgressBarStyle); 
{set progress bar position and size - put in  Panel[2]} 
ProgressBar1.Left := StatusBar1.Panels.Items[0].Width +  
StatusBar1.Panels.Items[1].Width + 4; 
ProgressBar1.Top := 4;  
ProgressBar1.Height := StatusBar1.Height - 6; 
ProgressBar1.Width :=  StatusBar1.Panels.Items[2].Width - 6; 
{set range and initial state}  
ProgressBar1.Min := 0; 
ProgressBar1.Max := 100; 
ProgressBar1.Step :=  1; 
ProgressBar1.Position := 0; 
end; 

 ProgressBar1.free;

 var 
r : TMessage; 
begin  

Application.HintMouseMessage(self, r); 
TWMMouse(r).XPos := X;  
TWMMouse(r).YPos := Y; 
Application.HintMouseMessage(MyDBGrid1, r);  
end;

var  
array[indexType1, ..., indexTypen] of baseType; 

 d(.i.):= 3 + i; // Equivalent  d:= 3 + i; 

 var 
A : array [Boolean] of integer;  
begin 
A[True] := 50; 
A[False] := 100; 
end; 

for I := 0 to High(X) do S := S + X; 

 type 
TDay = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday,  Saturday); 

const 
DayNames : array [TDay] of String[9] = ('Sunday',  'Monday', 'Tuesday', 
'Wednesday', 'Thursday', 
'Friday', 'Saturday');  
var 
Today : TDay; 

begin 
Today := TDay(DayOfWeek(Date) - 1);  
ShowMessage('Today is ' + DayNames[Today] + '!'); 
end;  

 var MyFlexibleArray: array of Real;  

 SetLength (MyFlexibleArray, 2; (  

 MyFlexibleArray := nil; 

 type TNumbers = packed array[1..100] of Real; 

type 
TMessageGrid = array of array of string;  

var 
Msgs: TMessageGrid; 

 SetLength(Msgs, I, J);  

var 
Ints: array of array of Integer; 

SetLength(Ints,  10);