Grendelus
12-01-2007, 07:19 PM
library display;
uses
Windows,
SysUtils;
procedure SetResolution(HorizR:Integer;VertR:Integer;AddR:In teger) cdecl;
external 'Resolution.dll' name 'SetResolution';
function _set320x240:PChar; cdecl;
begin
SetResolution(320,240,4);
end;
function _set640x480:PChar; cdecl;
begin
SetResolution(640,480,4);
end;
function _set800x600:PChar; cdecl;
begin
SetResolution(800,600,4);
end;
function _set1024x768:PChar; cdecl;
begin
SetResolution(1024,768,4);
end;
function _set1280x1024:PChar; cdecl;
begin
SetResolution(1280,1024,4);
end;
function _set1600x1200:PChar; cdecl;
begin
SetResolution(1600,1200,4);
end;
function _set1280x800:PChar; cdecl;
begin
SetResolution(1280,800,4);
end;
function _set1024x600:PChar; cdecl;
begin
SetResolution(1024,600,4);
end;
function _set1366x768:PChar; cdecl;
begin
SetResolution(1366,768,4);
end;
exports _set320x240;
exports _set640x480;
exports _set800x600;
exports _set1024x768;
exports _set1280x1024;
exports _set1600x1200;
exports _set1280x800;
exports _set1024x600;
exports _set1366x768;
begin end.
Here you go. This is a wrapper dll I made for a resolution change dll.
The problem is that I want the 'resolution.dll' path and filename to be able to change dynamically by passing my own filepath as a string.
e.g.
procedure SetResolution(HorizR:Integer;VertR:Integer;AddR:In teger) cdecl;
external 'Resolution.dll' name 'SetResolution';
to something like:
var dllName:String;
procedure SetResolution(HorizR:Integer;VertR:Integer;AddR:In teger) cdecl;
external dllName name 'SetResolution';
The above does not work. :(
uses
Windows,
SysUtils;
procedure SetResolution(HorizR:Integer;VertR:Integer;AddR:In teger) cdecl;
external 'Resolution.dll' name 'SetResolution';
function _set320x240:PChar; cdecl;
begin
SetResolution(320,240,4);
end;
function _set640x480:PChar; cdecl;
begin
SetResolution(640,480,4);
end;
function _set800x600:PChar; cdecl;
begin
SetResolution(800,600,4);
end;
function _set1024x768:PChar; cdecl;
begin
SetResolution(1024,768,4);
end;
function _set1280x1024:PChar; cdecl;
begin
SetResolution(1280,1024,4);
end;
function _set1600x1200:PChar; cdecl;
begin
SetResolution(1600,1200,4);
end;
function _set1280x800:PChar; cdecl;
begin
SetResolution(1280,800,4);
end;
function _set1024x600:PChar; cdecl;
begin
SetResolution(1024,600,4);
end;
function _set1366x768:PChar; cdecl;
begin
SetResolution(1366,768,4);
end;
exports _set320x240;
exports _set640x480;
exports _set800x600;
exports _set1024x768;
exports _set1280x1024;
exports _set1600x1200;
exports _set1280x800;
exports _set1024x600;
exports _set1366x768;
begin end.
Here you go. This is a wrapper dll I made for a resolution change dll.
The problem is that I want the 'resolution.dll' path and filename to be able to change dynamically by passing my own filepath as a string.
e.g.
procedure SetResolution(HorizR:Integer;VertR:Integer;AddR:In teger) cdecl;
external 'Resolution.dll' name 'SetResolution';
to something like:
var dllName:String;
procedure SetResolution(HorizR:Integer;VertR:Integer;AddR:In teger) cdecl;
external dllName name 'SetResolution';
The above does not work. :(