Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
Metalwarrior
tag
Helló!
Lenne egy kis gond:
Van egy rc fájl :
STRINGTABLE DISCARDABLE
BEGIN
1 ''x''
2 ''y''
END
Ezt lefordíttatom res-re. Utána csinálok belőle dll-t.
Library xxx;
{$R xxx.res}
begin
end.
procedure LRS(lib:string);
var dllleiro : Thandle;
puffer : array [0..100] of char;
begin
dllleiro:=LoadLibrary(Pchar(lib));
if dllleiro<32 then
begin
beep(); exit;
end;
Loadstring(dllleiro, 1, puffer, Sizeof(puffer));
form1.Button1.Caption:=puffer;
LoadString(dllleiro, 2, puffer, Sizeof(puffer));
form1.Label1.Caption:=puffer;
end;
procedure TForm1.HUN1Click(Sender: TObject);
begin
LRS('xxx.dll'); De nem tárol semmit a pufferben
end;
Hol lehet a gond?
Új hozzászólás Aktív témák
Aktív témák
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Macbook White 13" unibody
- BESZÁMÍTÁS! 1TB Corsair MP700 NVMe SSD meghajtó garanciával hibátlan működéssel
- BESZÁMÍTÁS! Gigabyte A620M R5 7500F 32GB DDR5 512GB SSD RX 6700 XT 12GB Rampage SHIVA Chieftec 700W
- OLCSÓBB!!! DDR5 16GB 8GB 32GB 4800MHz 5600MHz RAM Több db
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest