Új hozzászólás Aktív témák

• #964 Metalwarrior tag

  Új Válasz 2005-10-15 13:06:03 #964

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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