HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Delphi sMyPathExMetal [Ported to Delphi] [version mejorada]

Status
Not open for further replies.
E

Expermicid

Leech
User
Joined
Oct 23, 2011
Messages
285
Reputation
0
Reaction score
255
Points
63
Credits
0
‎13 Years of Service‎
95%
[lenguaje=delphi](*

Fecha: 5-10-2012

Función mejorada y acortada

Reparado bug al medir longitud del resultado

*)

Function sMyPathExMetal():String;

var

sParams: String;

L: Byte;

begin

SetLength(sParams, MAX_PATH);

L:= GetModuleFileName(0, PChar(sParams), MAX_PATH);

SetLength(sParams, L);

SetLength(Result, L);

Result := sParams;

end;[/lenguaje]

Autor: Metal_Kingdom

 
Last edited by a moderator:
Status
Not open for further replies.
Back
Top